home *** CD-ROM | disk | FTP | other *** search
- inherited frmLoopWindows: TfrmLoopWindows
- Left = 354
- Top = 249
- HelpContext = 58
- OldCreateOrder = True
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- inherited pnlTop: TPanel
- inherited lblCommandName: TLabel
- Caption = ''
- end
- inherited img1616: TImage
- Top = 60
- Height = 12
- Picture.Data = {<image000.ico>}
- end
- inherited memActionDesc: TMemo
- Lines.Strings = (
-
- 'Loops through all of the Windows that are currently open on the ' +
- 'system. The '
-
- 'variable specified in the Index parameter is updated with the cu' +
- 'rrent window title, '
-
- 'with each successive loop, the next window title is retrieved. ' +
- 'The loop ends after '
-
- 'all the open windows have been retrieved or when a Break is enco' +
- 'untered.')
- end
- end
- inherited pnlCenter: TPanel
- inherited pgcControlPage: TPageControl
- inherited tbsAM5Main: TTabSheet
- object lnlIndex: TLabel
- Left = 10
- Top = 16
- Width = 231
- Height = 13
- AutoSize = False
- Caption = 'Populate &variable with window title:'
- FocusControl = cboIndexVar
- end
- object Label1: TLabel
- Left = 10
- Top = 63
- Width = 231
- Height = 13
- AutoSize = False
- Caption = 'Populate variable with window &handle:'
- FocusControl = cboHandleVar
- end
- object cboIndexVar: TAM5VarListComboBox
- Left = 10
- Top = 32
- Width = 224
- Height = 21
- ItemHeight = 13
- TabOrder = 0
- end
- object chkAllowHidden: TCheckBox
- Left = 10
- Top = 121
- Width = 429
- Height = 17
- Caption = 'Include &hidden windows'
- TabOrder = 1
- end
- object cboHandleVar: TAM5VarListComboBox
- Left = 10
- Top = 79
- Width = 224
- Height = 21
- ItemHeight = 13
- TabOrder = 2
- end
- end
- end
- end
- inherited taclKeyboardTrap: TActionList
- Left = 200
- end
- inherited dxSIBarManager: TdxBarManager
- Categories.ItemsVisibles = (
- 2)
- Categories.Visibles = (
- True)
- PopupMenuLinks = <
- item
- Control = lsvAM5Errors
- PopupMenu = dxCheckPopup
- end>
- DockControlHeights = (
- 0
- 0
- 0
- 0)
- end
- inherited dxCheckPopup: TdxBarPopupMenu
- ItemLinks = <
- item
- Item = itmCheckAllErrors
- UserGlyph.Data = {00000000}
- Visible = True
- end
- item
- Item = itmCheckNoErrors
- UserGlyph.Data = {00000000}
- Visible = True
- end>
- end
- inherited IvTranslator1: TIvTranslator
- Left = 232
- Top = 348
- end
- end
-